home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Source Code / Pascal / Snippets / PNL Libraries / MyServices.p < prev    next >
Encoding:
Text File  |  1996-10-16  |  832 b   |  47 lines  |  [TEXT/CWIE]
  1. unit MyServices;
  2.  
  3. interface
  4.  
  5.     const
  6.         echo_port = 7;
  7.         discard_port = 9;
  8.         systat_port = 11;
  9.         daytime_port = 13;
  10.         netstat_port = 15;
  11.         chargen_port = 19;
  12.         ftp_data_port = 20;
  13.         ftp_port = 21;
  14.         telnet_port = 23;
  15.         smtp_port = 25;
  16.         time_port = 37;
  17.         whois_port = 43;
  18.         dns_port = 53;
  19.         tftp_port = 69;
  20.         gopher_port = 70;
  21.         finger_port = 79;
  22.         http_port = 80;
  23.         pop2_port = 109;
  24.         pop3_port = 110;
  25.         ident_port = 113;
  26.         nntp_port = 119;
  27.         ntp_port = 123;
  28.         at_rtmp_port = 201;
  29.         at_nbp_port = 202;
  30.         at_echo_port = 204;
  31.         at_zis_port = 206;
  32.         exec_port = 512;
  33.         biff_port = 512;
  34.         login_port = 513;
  35.         who_port = 513;
  36.         shell_port = 514; { rsh, rlogin }
  37.         syslog_port = 514;
  38.         lineprinter_port = 515;
  39.         otalk_port = 517;
  40.         ntalk_port = 518;
  41.         route_port = 520;
  42.         archie_port = 1525;
  43.         mac_search_port = 1787;
  44.  
  45. implementation
  46.  
  47. end.